home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / Fast Graph248258172001.psc / mCommon.bas < prev    next >
Encoding:
BASIC Source File  |  2001-05-03  |  1.5 KB  |  56 lines
  1. Attribute VB_Name = "mCommon"
  2. Option Explicit
  3.  
  4. Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
  5.  
  6. Private Const OFN_HIDEREADONLY = &H4
  7.  
  8. Private Type OPENFILENAME
  9.     lStructSize As Long
  10.     hwndOwner As Long
  11.     hInstance As Long
  12.     lpstrFilter As String
  13.     lpstrCustomFilter As String
  14.     nMaxCustFilter As Long
  15.     nFilterIndex As Long
  16.     lpstrFile As String
  17.     nMaxFile As Long
  18.     lpstrFileTitle As String
  19.     nMaxFileTitle As Long
  20.     lpstrInitialDir As String
  21.     lpstrTitle As String
  22.     flags As Long
  23.     nFileOffset As Integer
  24.     nFileExtension As Integer
  25.     lpstrDefExt As String
  26.     lCustData As Long
  27.     lpfnHook As Long
  28.     lpTemplateName As String
  29. End Type
  30.  
  31. Public Function CommonOpenFile(ByVal hWndParent As Long, ByVal Filter As String, ByVal InitDir As String, ByVal Title As String) As String
  32.   Dim OFName As OPENFILENAME
  33.   Dim Tam As Long
  34.     
  35.   OFName.lStructSize = Len(OFName)
  36.   OFName.hwndOwner = hWndParent
  37.   OFName.hInstance = App.hInstance
  38.   OFName.lpstrFilter = Filter
  39.   OFName.lpstrFile = Space$(254)
  40.   OFName.nMaxFile = 255
  41.   OFName.lpstrFileTitle = Space$(254)
  42.   OFName.nMaxFileTitle = 255
  43.   OFName.lpstrInitialDir = InitDir
  44.   OFName.lpstrTitle = Title
  45.   OFName.flags = OFN_HIDEREADONLY
  46.   If GetOpenFileName(OFName) Then
  47.     OFName.lpstrFile = Trim(OFName.lpstrFile)
  48.     Tam = Len(OFName.lpstrFile)
  49.     CommonOpenFile = Mid(OFName.lpstrFile, 1, Tam - 1) 'cut char 0
  50.   Else
  51.     CommonOpenFile = ""
  52.   End If
  53. End Function
  54.  
  55.  
  56.